home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 138 / Tiger_Disk_138_20xx_Tiger-Crew-Disk_de_Side_B.d64 / sinus-loader _tc (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  37 lines
  1. 1 ifpeek(816)=165andpeek(817)=244then10
  2. 2 print"[147] kill cartridge ! ":end
  3. 10 print"[147][155]":poke53280,11:poke53281,.
  4. 20 ifa=0thena=1:load"smooth",8,1
  5. 30 fort=0to62:readq:poke704+t,q:next:fort=0to8:poke2040+t,11:next
  6. 35 poke53287,1:poke53288,7:poke53289,5:poke53290,3:poke53291,4:poke53292,8:poke53293,10
  7. 36 poke53294,13
  8. 40 print"[147]dies ist eine kleine demonstration,     wie du ";
  9. 50 print"einen smooth-sinus mit eigenen":print"sprites in deinem basic-programm"
  10. 60 print"verwenden kannst.":fort=1to3000:next:poke53269,255:sys16544
  11. 70 print" [153] taste! "
  12. 80 poke198,0:wait198,1:poke198,0
  13. 90 print"[145][158]das sinus-programm liegt"
  14. 100 print"ab $4000[146][158] im speicher, die sprites       kannst du wie gewohnt";
  15. 110 print" in einen":print"beliebigen bereich poken / laden..."
  16. 120 print"[156]die sprites werden ganz normal mit      poke53269,255[146][156] eingeschaltet,
  17. 121 [153]"clrdie sinus-routine wird mit sys 16544waitclr    ($40a0) gestartet."
  18. 130 [153]" print taste! "
  19. 140 [151]198,0:[146]198,1:[151]198,0:[151]53277,255
  20. 150 [153]"onmit poke53277,255waitprint kannst du die sprites wie gewohnt waagrecht ver";
  21. 160 [153]"groessern,"
  22. 170 [153]"  taste! "
  23. 180 [151]198,0:[146]198,1:[151]198,0:[151]53271,255
  24. 190 [153]"onopenmit poke53271,255waitopen vergroesserst du sie  senkrecht..."
  25. 200 [153]" print taste! "
  26. 210 [151]198,0:[146]198,1:[151]198,0:[151]53277,0
  27. 220 [153]"on  nochmal taste! "
  28. 230 [151]198,0:[146]198,1:[151]198,0:[151]53271,0
  29. 240 [153]"ondef ende mit space! ":[151]198,0:[146]198,1:[151]198,0
  30. 250 [151]53269,0:[153]"on           t i g e r c r e w on":[129]t[178]1[164]1000:[130]
  31. 255 [158]64738
  32. 260 [131]250,247,190,34,132,34,34,132,34,34,183,190
  33. 270 [131]34,148,40,34,148,36,34,247,162,0,0,0,0,0,0
  34. 280 [131]0,252,0,0,252,0,0,0,0,0,0,0,251,239,65
  35. 290 [131]130,40,65,130,40,65,131,239,34,130,136,42
  36. 300 [131]130,72,42,250,47,54,0,0,0
  37.